4RTNI

SHORT cutoff:

SHORT_CUTOFF

## [1] 2

LONG cutoff:

LONG_CUTOFF

## [1] 5

mydata_long %>% count(diagnosis,disease_duration_category)

## Source: local data frame [4 x 3]
## Groups: diagnosis [?]
## 
## # A tibble: 4 x 3
##   diagnosis disease_duration_category     n
##      <fctr>                    <fctr> <int>
## 1       CBS                     SHORT     8
## 2       CBS                      LONG    12
## 3       PSP                     SHORT     8
## 4       PSP                      LONG    16

Sup. Cerebellar Peduncle MD

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(scp_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8101821

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(scp_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5798734

Sup. Cerebellar Peduncle FA

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(scp_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7437332

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(scp_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5047522

Precentral+Postcentral Grey Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(motor_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7296886

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(motor_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7598621

Precentral+Postcentral White Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(motor_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.944938

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(motor_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.8805148

Midbrain Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(midbrain_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.03605806

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(midbrain_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5087471

Total Grey Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(total_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.6809166

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(total_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.1484854

Total White Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(total_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.5004565

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(total_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7456574

Precentral FA

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(precentral_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7493899

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(precentral_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.002524578

Precentral MD

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(precentral_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8658294

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(precentral_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.03209973

Superior Cerebellar Peduncle AD

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(scp_b_ad_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.9941252

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(scp_b_ad_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7962575

Superior Cerebellar Peduncle RD

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(scp_b_rd_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7536128

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(scp_b_rd_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5347278

Precentral Grey Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(precentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.534003

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(precentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.8903332

Precentral Grey Matter Thickness

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(precentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.1719783

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(precentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.9122561

Precentral White Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(precentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8606234

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(precentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.8716657

Postcentral Grey Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(postcentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.9021901

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(postcentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7380292

Postcentral Grey Matter Thickness

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(postcentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8936642

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(postcentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.458973

Postcentral White Matter Volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(postcentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.5450388

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(postcentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.4081793

SCP volume

t.test for SHORT vs LONG group diff in slope among CBS:

t.test(scp_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.3357956

t.test for SHORT vs LONG group diff in slope among PSP:

t.test(scp_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.4400818

U-test: Sup. Cerebellar Peduncle MD

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(scp_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.6334385

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(scp_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5713583

U-test: Sup. Cerebellar Peduncle FA

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(scp_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8285571

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(scp_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5208065

U-test: Precentral+Postcentral Grey Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(motor_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8125257

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(motor_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.4697552

U-test: Precentral+Postcentral White Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(motor_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.9622583

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(motor_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6805944

U-test: Midbrain Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(midbrain_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.04308926

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(midbrain_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.4697552

U-test: Total Grey Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(total_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.6690662

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(total_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.1737762

U-test: Total White Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(total_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8125257

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(total_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6064685

U-test: Precentral FA

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(precentral_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8285571

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(precentral_b_fa_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.004096213

U-test: Precentral MD

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(precentral_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8967503

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(precentral_b_md_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.04734461

U-test: Superior Cerebellar Peduncle AD

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(scp_b_ad_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.6964669

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(scp_b_ad_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.5208065

U-test: Superior Cerebellar Peduncle RD

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(scp_b_rd_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8967503

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(scp_b_rd_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6784314

U-test: Precentral Grey Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(precentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.886775

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(precentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6064685

U-test: Precentral Grey Matter Thickness

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(precentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.363842

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(precentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7576923

U-test: Precentral White Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(precentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.886775

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(precentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6064685

U-test: Postcentral Grey Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(postcentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7396133

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(postcentral_b_gm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.4697552

U-test: Postcentral Grey Matter Thickness

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(postcentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.8125257

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(postcentral_b_gm_thick_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.7576923

U-test: Postcentral White Matter Volume

wilcox.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(postcentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.7396133

wilcox.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(postcentral_b_wm_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.6805944

U-test: SCP volume

t.test for SHORT vs LONG group diff in slope among CBS:

wilcox.test(scp_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="CBS")$p.value

## [1] 0.5361991

t.test for SHORT vs LONG group diff in slope among PSP:

wilcox.test(scp_vol_slope~disease_duration_category, data=mydata_long,subset= diagnosis=="PSP")$p.value

## [1] 0.351049